home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 64 / Mac Magazin CD 64.iso / Updates / FileMaker Pro Server / Web Companion / Web Companion.rsrc / HDAT_23222_FMP-IWPRedir.js < prev    next >
Encoding:
JavaScript  |  1999-09-08  |  864 b   |  47 lines

  1. /*
  2.     FMP-IWPRedir.js
  3.     
  4.     (c) Copyright 1999 FileMaker, Inc. All rights reserved.
  5.     
  6.     Modification History:
  7.     3/10/99 KJJ    Created.
  8. */
  9.  
  10. /* redir Object Definition */
  11.  
  12. function get_lang()
  13. {
  14.     if ( this.lang == null )
  15.         this.lang = this.vformat.substring(0,1);
  16.     return this.lang;
  17. }
  18.  
  19. function redirect_window()
  20. {
  21.     var result = "";
  22.     if ( this.vaction.toLowerCase().indexOf(this.dDelim) > -1 )
  23.         var url = this.dellink;
  24.     else
  25.         var url = this.edlink;
  26.     if ( url.indexOf(this.delim) > -1 )
  27.     {
  28.         var segments = url.split(this.delim)
  29.         if ( segments[0] != "" )
  30.             result = segments[0];
  31.         for( i = 1; i < segments.length; ++i )
  32.             result += this.getlang() + segments[i];
  33.         window.location = result;
  34.     }
  35. }
  36.  
  37. function IWPRedirect()
  38. {
  39.     this.getlang    =    get_lang;
  40.     this.go            =    redirect_window;
  41.     this.delim        =    "~";
  42.     this.dDelim        =    "delete";
  43. }
  44. /* Create Objects */
  45.  
  46. iwp = new IWPRedirect();
  47.